﻿Public Class WfPrincipal
    Inherits System.Web.UI.Page
    Dim AdmLog As New Adm

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
     
    End Sub

    Private Sub Page_PreRender(sender As Object, e As System.EventArgs) Handles Me.PreRender
        If Session("AdmLogado") Is Nothing Then
            Response.Redirect("/Screens/WF1.aspx")
        Else
            AdmLog = Session("AdmLogado")
            LbAdm.Text = AdmLog.NomeAdm
        End If
    End Sub
End Class